Freelog 50/Freelog050.iso/DossierLogitheque/Bureautique/Mira/Mira_setup.exe/{app}/Mira.exe/0/RCDATA/TFORMCOURRIER/TFORMCOURRIER.txt

Text File | 2003-09-02 | 37KB | 1,195 lines

object FormCourrier: TFormCourrier
  Left = 282
  Top = 212
  Width = 755
  Height = 414
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Mode courrier'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefaultPosOnly
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 27
    Width = 747
    Height = 333
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    BevelInner = bvNone
    BorderStyle = bsNone
    Color = clGray
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    object RichEditCourrier: TRichEdit98
      Left = 177
      Top = 34
      Width = 187
      Height = 262
      AutoURLDetect = adDefault
      BorderStyle = bsNone
      Ctl3D = False
      CustomURLs = <
        item
          Name = 'e-mail'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'http'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'file'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'mailto'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'ftp'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'https'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'gopher'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'nntp'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'prospero'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'telnet'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'news'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'wais'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end>
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      HideSelection = False
      LangOptions = [loAutoFont]
      Language = 1036
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopupRichCourrier
      ScrollBars = ssVertical
      ShowSelectionBar = False
      TabOrder = 0
      URLColor = clBlue
      URLCursor = crHandPoint
      OnKeyPress = RichEditCourrierKeyPress
      OnMouseUp = RichEditCourrierMouseUp
      OnSelectionChange = RichEditCourrierSelectionChange
      OnURLClick = RichEditCourrierURLClick
      InputFormat = ifRTF
      OutputFormat = ofRTF
      SelectedInOut = False
      PlainRTF = False
      UndoLimit = 0
      AllowInPlace = False
    end
    object PanelTop: TPanel
      Left = 0
      Top = 0
      Width = 747
      Height = 30
      Align = alTop
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 1
      object PanelRule: TPanel
        Left = 174
        Top = 0
        Width = 244
        Height = 30
        BevelOuter = bvNone
        Color = clSilver
        TabOrder = 0
        object ImageIndent: TImage
          Left = 9
          Top = 0
          Width = 7
          Height = 6
          Cursor = crDrag
          Hint = 'Retrait de la premi'#232're ligne'
          AutoSize = True
          ParentShowHint = False
          Picture.Data = {<image001.bmp>}
          ShowHint = True
          OnMouseDown = ImageIndentMouseDown
          OnMouseMove = ImageIndentMouseMove
          OnMouseUp = ImageIndentMouseUp
        end
        object ImageG: TImage
          Left = 9
          Top = 20
          Width = 7
          Height = 6
          Cursor = crDrag
          Hint = 'Retrait '#224' gauche'
          AutoSize = True
          ParentShowHint = False
          Picture.Data = {<image002.bmp>}
          ShowHint = True
          OnMouseDown = ImageGMouseDown
          OnMouseMove = ImageGMouseMove
          OnMouseUp = ImageGMouseUp
        end
        object MarginL: TImage
          Left = 9
          Top = 26
          Width = 7
          Height = 4
          Cursor = crMultiDrag
          Hint = 'Marge gauche'
          AutoSize = True
          ParentShowHint = False
          Picture.Data = {<image003.bmp>}
          ShowHint = True
          OnMouseDown = MarginLMouseDown
          OnMouseMove = MarginLMouseMove
          OnMouseUp = MarginLMouseUp
        end
        object ImageD: TImage
          Left = 162
          Top = 20
          Width = 7
          Height = 6
          Cursor = crDrag
          Hint = 'Retrait '#224' droite'
          AutoSize = True
          ParentShowHint = False
          Picture.Data = {<image004.bmp>}
          ShowHint = True
          OnMouseDown = ImageDMouseDown
          OnMouseMove = ImageDMouseMove
          OnMouseUp = ImageDMouseUp
        end
        object MarginR: TImage
          Left = 162
          Top = 26
          Width = 7
          Height = 4
          Cursor = crMultiDrag
          Hint = 'Marge droite'
          AutoSize = True
          ParentShowHint = False
          Picture.Data = {<image005.bmp>}
          ShowHint = True
          OnMouseDown = MarginRMouseDown
          OnMouseMove = MarginRMouseMove
          OnMouseUp = MarginRMouseUp
        end
        object SC_Ruler1: TSC_Ruler
          Left = 0
          Top = 6
          Width = 187
          Height = 14
          BevelOuter = bvNone
          Caption = ' '
          Color = clWhite
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          StartOffset = 2
          RulerLength = 100
        end
      end
    end
  end
  object PanelForm: TPanel
    Left = 0
    Top = 0
    Width = 747
    Height = 27
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object BoldButton: TSpeedButton
      Left = 326
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Met la s'#233'lection en gras'
      AllowAllUp = True
      GroupIndex = 2
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777000000
        7777777770007000777777770007700077777777000700007777777700077777
        7777777700077777777777770007700077777777700070007777777777000007
        7777777777777777777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = BoldButtonClick
    end
    object ItalicButton: TSpeedButton
      Left = 350
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Met la s'#233'lection en italique'
      AllowAllUp = True
      GroupIndex = 3
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777000000777
        7777777770087777777777777800777777777777770087777777777777800777
        7777777777700877777777777778007777777777777700877777777777700000
        7777777777777777777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = ItalicButtonClick
    end
    object UnderlineButton: TSpeedButton
      Left = 374
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Met la s'#233'lection en soulign'#233' continu'
      AllowAllUp = True
      GroupIndex = 4
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777778888888887777777000000000777777777777777
        7777777777000007777777777008780077777777707777007777777777770007
        7777777777000007777777777000777777777777700777007777777770087800
        7777777777000007777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = UnderlineButtonClick
    end
    object LeftAlign: TSpeedButton
      Left = 427
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Aligner le paragraphe '#224' gauche'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007777777777777777700000007000
        0000000777777000000077777777777777777000000070000000000000077000
        0000777777777777777770000000700000000007777770000000777777777777
        7777700000007000000000000007700000007777777777777777700000007000
        0000000777777000000077777777777777777000000070000000000000077000
        0000777777777777777770000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = LeftAlignClick
    end
    object CenterAlign: TSpeedButton
      Tag = 2
      Left = 451
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Aligner le paragraphe au centre'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007777777777777777700000007770
        0000000007777000000077777777777777777000000070000000000000077000
        0000777777777777777770000000777000000000077770000000777777777777
        7777700000007000000000000007700000007777777777777777700000007770
        0000000007777000000077777777777777777000000070000000000000077000
        0000777777777777777770000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = CenterAlignClick
    end
    object RightAlign: TSpeedButton
      Tag = 1
      Left = 475
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Aligner le paragraphe '#224' droite'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007777777777777777700000007777
        7700000000007000000077777777777777777000000077000000000000007000
        0000777777777777777770000000777777000000000070000000777777777777
        7777700000007700000000000000700000007777777777777777700000007777
        7700000000007000000077777777777777777000000077000000000000007000
        0000777777777777777770000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = RightAlignClick
    end
    object BulletsButton: TSpeedButton
      Tag = 1
      Left = 503
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Ins'#233'rer une puce'
      AllowAllUp = True
      GroupIndex = 5
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDD0000000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444
        DD000000000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD000
        0000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000
        000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDD
        DDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000000DD000
        0000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD
        DDDDD0000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = BulletsButtonClick
    end
    object ButtonFont: TSpeedButton
      Left = 398
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Choisir la couleur'
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007000700077777777700000007707770777777777700000007700
        0007000007777000000077707070BFBFB0077000000077700070707BFBF07000
        0000777707770E0707B07000000077770770707090FB0000000077777000BFB7
        07BF0000000077770BFBFBFB707B0000000077770F707FBF070F000000007777
        0B050707707B0000000077770F707070BFB070000000777770FBF707FB077000
        000077777700BFBF007770000000777777770000777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = ButtonFontClick
    end
    object IndentPlus: TSpeedButton
      Tag = 1
      Left = 527
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Augmenter le retrait '#224' gauche'
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000012000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDDDDDD0DDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DD00
        00D00DDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DD0000D0000000000D00
        0000DDDDDDDDDDDDDDDDDD000000DD4DDDD000000DDDDD000000DD44DDD00000
        0DDDDD00000044444DDDDDDDDDDDDD000000DD44DDD000000000DD000000DD4D
        DDD000000000DD000000DDDDDDDDDDDDDDDDDD000000DD0000D000000000DD00
        0000DDDDDDDDDDDDDDDDDD000000DDDDDDD0DDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDD000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = IndentPlusClick
    end
    object IndentMoins: TSpeedButton
      Tag = 1
      Left = 551
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Diminuer le retrait de gauche'
      Flat = True
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDD0000000DDDDDDD0DDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DD00
        00D00DDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DD0000D000000000D000
        0000DDDDDDDDDDDDDDDDD0000000DD4DDDD000000DDDD0000000D44DDDD00000
        0DDDD000000044444DDDDDDDDDDDD0000000D44DDDD000000000D0000000DD4D
        DDD000000000D0000000DDDDDDDDDDDDDDDDD0000000DD0000D000000000D000
        0000DDDDDDDDDDDDDDDDD0000000DDDDDDD0DDDDDDDDD0000000DDDDDDDDDDDD
        DDDDD0000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = IndentMoinsClick
    end
    object Bevel1: TBevel
      Left = 576
      Top = 2
      Width = 3
      Height = 22
      Shape = bsLeftLine
    end
    object SpeedPrint: TSpeedButton
      Tag = 2
      Left = 51
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Imprimer'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAAD00000000000DADD0888888888080DA000000000000080D0888888BBB88
        000A088888877788080D00000000000008800888888888808080D00000000008
        0800AD0FFFFFFFF08080DAD0F00000F0000AADA0FFFFFFFF0DADDADA0F00000F
        0ADAADAD0FFFFFFFF0ADDADAD000000000DAADADADADADADADAD}
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintFileExecute
    end
    object SpeedClose: TSpeedButton
      Tag = 1
      Left = 676
      Top = 2
      Width = 47
      Height = 22
      Hint = 'Fermer la fiche courrier'
      Caption = 'Fermer'
      Flat = True
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedCloseClick
    end
    object SpeedSave: TSpeedButton
      Tag = 2
      Left = 27
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Enregistrer au format RTF'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088
        030AA03300000000030DD03333333333330AA03300000000330DD03088888888
        030AA03088888888030DD03088888888030AA03088888888030DD03088888888
        000AA03088888888080DD00000000000000AADADADADADADADAD}
      ParentShowHint = False
      ShowHint = True
      OnClick = SaveAsExecute
    end
    object SpeedForme: TSpeedButton
      Left = 652
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Copier la mise en forme'
      AllowAllUp = True
      GroupIndex = 6
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADABFBFBDADADADADADDADADBFADADADADAADADAD000DADADADDADAD0FBF0DA
        DADAADAD0F7FBF0DADADDAD0F7F87BF0DADAAD0F7F87BFB70DADD0F7F87BFB78
        80DA000F87BFB78880ADDAD00BFB78880ADAADADA0B7888740ADDADADA088804
        440AADADADA000A04440DADADADADADA0440ADADADADADADA00D}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedFormeClick
    end
    object SpeedButton1: TSpeedButton
      Tag = 2
      Left = 3
      Top = 3
      Width = 23
      Height = 21
      Hint = 'Ouvrir un fichier au format RTF'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADADAD00000000000ADADA003333333330ADAD0B0333333333
        0ADA0FB03333333330AD0BFB03333333330A0FBFB000000000000BFBFBFBFB0A
        DADA0FBFBFBFBF0DADAD0BFB0000000ADADAA000ADADADAD000DDADADADADADA
        D00AADADADAD0DAD0D0DDADADADAD000DADAADADADADADADADAD}
      ParentShowHint = False
      ShowHint = True
      OnClick = OpenExecute
    end
    object SuperscriptButton: TSpeedButton
      Left = 580
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Exposant'
      AllowAllUp = True
      GroupIndex = 7
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000880B0000880B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555550055005555555555500005555
        5555555550055555555555550000555555555550055005555555555555555511
        1555555555555515555555555555555155555555555555551555555555555511
        5555555555555555555555555555555555555555555555555555}
      ParentShowHint = False
      ShowHint = True
      OnClick = SuperscriptButtonClick
    end
    object subscriptButton: TSpeedButton
      Left = 604
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Indice'
      AllowAllUp = True
      GroupIndex = 7
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000880B0000880B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555444555555555555545
        5555555555555554555555555555555545555550055005445555555500005555
        5555555550055555555555550000555555555550055005555555555555555555
        5555555555555555555555555555555555555555555555555555}
      ParentShowHint = False
      ShowHint = True
      OnClick = subscriptButtonClick
    end
    object Bevel3: TBevel
      Left = 423
      Top = 2
      Width = 2
      Height = 22
      Shape = bsLeftLine
    end
    object Bevel4: TBevel
      Left = 500
      Top = 2
      Width = 2
      Height = 22
      Shape = bsLeftLine
    end
    object SurligneButton: TSpeedButton
      Left = 628
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Surligner le texte'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000880B0000880B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555BBBBBBBBBBBBBB55BBBBBBBBBBBBBB55BBBBBBBBBBBBBB5555555555555
        555555000005555555555508FFF05555555555508FC70555555555550CC77055
        5555555550C7270555555555550FF270555555555550FF270555555555550FF0
        C05555555555500FC05555555555550005555555555555555555}
      ParentShowHint = False
      ShowHint = True
      OnClick = SurligneButtonClick
    end
    object ButtonAnnuler: TSpeedButton
      Tag = 1
      Left = 302
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Annuler'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000880B0000880B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD
        0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDD70DDDDD0000DDDD00000DDD
        DD07DDDD0000DDDD0000DDDDDDD0DDDD0000DDDD000DDDDDDDD0DDDD0000DDDD
        00D0DDDDDDD0DDDD0000DDDD0DDD00DDDD07DDDD0000DDDDDDDDDD00007DDDDD
        0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = AnnulerExecute
    end
    object SpeedPreview: TSpeedButton
      Tag = 2
      Left = 75
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Aper'#231'u avant impression'
      Flat = True
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000D000000000000DD00D000000D0FF
        FFFFFFFF0D000D000000D0FFFFFFF0000800DD000000D0FFFFFF0877808DDD00
        0000D0FFFFF0877E880DDD000000D0FFFFF07777870DDD000000D0FFFFF07E77
        870DDD000000D0FFFFF08EE7880DDD000000D0FFFFFF087780DDDD000000D0FF
        FFFFF0000DDDDD000000D0FFFFFFFFFF0DDDDD000000D0FFFFFFF0000DDDDD00
        0000D0FFFFFFF070DDDDDD000000D0FFFFFFF00DDDDDDD000000DD00000000DD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = ApercuPrintExecute
    end
    object SC_Line1: TSC_Line
      Left = 0
      Top = 26
      Width = 747
      Height = 1
      Align = alBottom
    end
    object FontSize: TComboBox
      Left = 252
      Top = 3
      Width = 47
      Height = 22
      Cursor = crHandPoint
      AutoComplete = False
      Ctl3D = True
      DropDownCount = 12
      ItemHeight = 14
      ParentCtl3D = False
      TabOrder = 1
      Text = '10'
      OnChange = FontSizeChange
      Items.Strings = (
        '8'
        '9'
        '10'
        '11'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26'
        '28'
        '36'
        '48'
        '72')
    end
    object FontName: TComboBox
      Left = 103
      Top = 3
      Width = 148
      Height = 21
      Cursor = crHandPoint
      AutoComplete = False
      Style = csOwnerDrawFixed
      Ctl3D = True
      DropDownCount = 12
      ItemHeight = 15
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 0
      OnChange = FontNameChange
      OnDrawItem = FontNameDrawItem
    end
  end
  object PopupRichCourrier: TPopupMenu
    OnPopup = PopupRichCourrierPopup
    Left = 1
    Top = 29
    object Annuler2: TMenuItem
      Action = Annuler
    end
    object Refaire1: TMenuItem
      Action = Refaire
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Couper2: TMenuItem
      Action = Couper
    end
    object Copier2: TMenuItem
      Action = Copier
    end
    object Coller2: TMenuItem
      Action = Coller
    end
    object Supprimer2: TMenuItem
      Action = SupprimerTexte
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object Slectionnertout2: TMenuItem
      Action = ToutSelectionner
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object Rechercherdutexte1: TMenuItem
      Action = Rechercher
    end
    object Remplacerdanscettenote2: TMenuItem
      Action = Remplacer
    end
    object N18: TMenuItem
      Caption = '-'
    end
    object Insertion2: TMenuItem
      Caption = 'Insertion'
      object Datecourte2: TMenuItem
        Action = ShortDate
      end
      object Datelongue2: TMenuItem
        Action = Longdate
      end
      object Datecourteetlheure2: TMenuItem
        Action = ShortDateTime
      end
      object Datelongueetlheure2: TMenuItem
        Action = LongDateTime
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Caractere3: TMenuItem
        Action = Caractere
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Lecontenudunfichieraucurseur1: TMenuItem
        Action = InsertFilePos
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Police1: TMenuItem
      Action = Police
    end
    object Espacementdelignes1: TMenuItem
      Action = SpaceLine
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Apperuavantimpression1: TMenuItem
      Action = ApercuPrint
    end
    object Configurerlimprimante1: TMenuItem
      Action = ConfigurePrint
    end
    object Ajusterlesmarges1: TMenuItem
      Action = SetMarge
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object OuvrirunfichierRTF1: TMenuItem
      Action = Open
    end
    object Enregistrersous1: TMenuItem
      Action = SaveAs
    end
  end
  object ActionList1: TActionList
    Left = 30
    Top = 30
    object Couper: TAction
      Category = 'Edition'
      Caption = 'Cou&per'
      Hint = 'Couper la s'#233'lection vers le presse papier'
      ShortCut = 16472
      OnExecute = CouperExecute
    end
    object Copier: TAction
      Category = 'Edition'
      Caption = '&Copier'
      Hint = 'Copier la s'#233'lection vers le presse papier'
      ShortCut = 16451
      OnExecute = CopierExecute
    end
    object Coller: TAction
      Category = 'Edition'
      Caption = 'Co&ller'
      Hint = 'Coller le contenu du presse papier'
      ShortCut = 16470
      OnExecute = CollerExecute
    end
    object ToutSelectionner: TAction
      Category = 'Edition'
      Caption = 'S'#233'lectionner &tout'
      Hint = 'S'#233'lectionner tout le texte'
      ShortCut = 16449
      OnExecute = ToutSelectionnerExecute
    end
    object SupprimerTexte: TAction
      Category = 'Edition'
      Caption = 'S&upprimer'
      Hint = 'Supprimer la s'#233'lection'
      ShortCut = 16430
      OnExecute = SupprimerTexteExecute
    end
    object Annuler: TAction
      Category = 'Edition'
      Caption = '&Annuler'
      Hint = 'Annuler la derni'#232're action'
      ShortCut = 16474
      OnExecute = AnnulerExecute
    end
    object Rechercher: TAction
      Category = 'Edition'
      Caption = 'Rechercher du texte'
      Hint = 'Rechercher du texte'
      ShortCut = 16454
      OnExecute = RechercherExecute
    end
    object Remplacer: TAction
      Category = 'Edition'
      Caption = 'Remplacer du texte'
      Hint = 'Remplacer du texte'
      ShortCut = 16466
      OnExecute = RemplacerExecute
    end
    object ShortDate: TAction
      Category = 'Insertion'
      Caption = 'Date courte'
      Hint = 'Ins'#233'rer la date courte'
      OnExecute = ShortDateExecute
    end
    object Longdate: TAction
      Category = 'Insertion'
      Caption = 'Date longue'
      Hint = 'Ins'#233'rer la date longue'
      OnExecute = LongdateExecute
    end
    object ShortDateTime: TAction
      Category = 'Insertion'
      Caption = 'Date courte et l'#39'heure'
      Hint = 'Ins'#233'rer la date courte et l'#39'heure'
      OnExecute = ShortDateTimeExecute
    end
    object LongDateTime: TAction
      Category = 'Insertion'
      Caption = 'Date longue et l'#39'heure'
      Hint = 'Ins'#233'rer la date longue et l'#39'heure'
      OnExecute = LongDateTimeExecute
    end
    object Police: TAction
      Category = 'Edition'
      Caption = '&Police'
      Hint = 'Choisir la police'
      ShortCut = 16464
      OnExecute = PoliceExecute
    end
    object SaveAs: TAction
      Category = 'Fichier'
      Caption = 'Enregistrer sous'
      Hint = '[Enregistrer en RTF'
      ShortCut = 16467
      OnExecute = SaveAsExecute
    end
    object Open: TAction
      Category = 'Fichier'
      Caption = 'Ouvrir un fichier RTF'
      Hint = 'Ouvrir un fichier au format RTF'
      ShortCut = 16463
      OnExecute = OpenExecute
    end
    object Caractere: TAction
      Category = 'Insertion'
      Caption = 'Caract'#232'res sp'#233'ciaux'
      Hint = 'Ins'#233'rer des caract'#232'res sp'#233'ciaux'
      OnExecute = CaractereExecute
    end
    object ConfigurePrint: TAction
      Category = 'Fichier'
      Caption = 'Configurer l'#39'imprimante'
      OnExecute = ConfigurePrintExecute
    end
    object InsertFilePos: TAction
      Category = 'Insertion'
      Caption = 'Le contenu d'#39'un fichier'
      Hint = 'Ins'#233'rer le contenu d'#39'un fichier au curseur'
      OnExecute = InsertFilePosExecute
    end
    object Refaire: TAction
      Category = 'Edition'
      Caption = 'Refaire'
      HelpKeyword = 'Refaire la derni'#232're action'
      ShortCut = 24666
      OnExecute = RefaireExecute
    end
    object SpaceLine: TAction
      Category = 'Edition'
      Caption = 'Interligne'
      OnExecute = SpaceLineExecute
    end
    object SetMarge: TAction
      Category = 'Fichier'
      Caption = 'Ajuster les marges'
      OnExecute = SetMargeExecute
    end
    object ApercuPrint: TAction
      Category = 'Fichier'
      Caption = 'Aper'#231'u avant impression'
      Hint = 'Aper'#231'u avant impression'
      OnExecute = ApercuPrintExecute
    end
    object PrintFile: TAction
      Category = 'Fichier'
      Caption = 'Imprimer'
      OnExecute = PrintFileExecute
    end
    object AJour_Note: TAction
      Category = 'Fichier'
      Caption = 'Mettre '#224' jour la note'
    end
  end
  object FindDialog1: TFindDialog
    Options = [frDown, frHideUpDown]
    OnFind = FindDialog1Find
    Left = 65533
    Top = 57
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Replace
    Left = 27
    Top = 60
  end
  object MainMenu1: TMainMenu
    Left = 90
    Top = 54
    object Fichier1: TMenuItem
      Caption = 'Fichier'
      object OuvrirunfichierRTF2: TMenuItem
        Action = Open
      end
      object Enregistrersous2: TMenuItem
        Action = SaveAs
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Imprimer1: TMenuItem
        Action = PrintFile
      end
      object Apperuavantimpression2: TMenuItem
        Action = ApercuPrint
      end
      object Configurerlimprimante2: TMenuItem
        Action = ConfigurePrint
      end
      object Ajusterlesmarges2: TMenuItem
        Action = SetMarge
      end
    end
    object Editeur1: TMenuItem
      Caption = 'Editeur'
      object Annuler1: TMenuItem
        Action = Annuler
      end
      object Refaire2: TMenuItem
        Action = Refaire
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Couper1: TMenuItem
        Action = Couper
      end
      object Copier1: TMenuItem
        Action = Copier
      end
      object Coller1: TMenuItem
        Action = Coller
      end
      object Supprimer1: TMenuItem
        Action = SupprimerTexte
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Slectionnertout1: TMenuItem
        Action = ToutSelectionner
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Rechercherdutexte2: TMenuItem
        Action = Rechercher
      end
      object Remplacerdutexte1: TMenuItem
        Action = Remplacer
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object Police2: TMenuItem
        Action = Police
      end
      object Interligne1: TMenuItem
        Action = SpaceLine
      end
      object N14: TMenuItem
        Caption = '-'
      end
    end
    object Insertion1: TMenuItem
      Caption = 'Insertion'
      object Datecourte1: TMenuItem
        Action = ShortDate
      end
      object Apperuavantimpression3: TMenuItem
        Action = Longdate
      end
      object Datecourteetlheure1: TMenuItem
        Action = ShortDateTime
      end
      object Datelongueetlheure1: TMenuItem
        Action = LongDateTime
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object Caractresspciaux1: TMenuItem
        Action = Caractere
      end
      object Lecontenudunfichier1: TMenuItem
        Action = InsertFilePos
      end
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen]
    Left = 3
    Top = 87
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 33
    Top = 87
  end
end